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sa te ee ee eee 
MODULE LibSfind_image( 3 File: LIBFNDIMG.B32 
esa 


MEW 


BEGIN 
ATITLE Sandee activate shareable image’; 


VAX native, user mode. 


1 
1 
. 
i 
i 
! 
1 
1 
i] 
' 
AUTHOR: Benn Schreiber 
CREATION DATE: 5-Feb-1983 . 
: MODIFIED BY: 
q 
i] 
' 
' 
1 
i] 

| 


v03-006 BL $0296 Benn Schreiber 9-APR-1984 
Modify method of looking up file to not rely on 
string returned from image activator. 


v03-005 8LS0277 Benn Schreiber 7-F EB-1984 
Convert to RTL routine. 


Sooo Soo eee EES ESE 


NOUS WN O OONOUS WN OOM 


4 
8 0 5 leuaeencenerenseeseeerentenreeereeteetrereeerertrerentnnenennnnneeenetentnes 
'@ * 
10 010 ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 
11 01 ie DIGITAL EQUIPMENT CORPORATION,” MAYNARD, MASSACHUSETTS. * 
9 1g is ALL RIGHTS RESERVED. : 
14 014 ie THIS SOFTWARE | Is FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
15 15 ig ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
16 9016 ie INCLUSION OF THE ABOVE COPYRIGHT N OTICE. THIS SOFTWARE OR ANY OTHER * 
1 001 ie COPIES THEREOF MAY NOT BE P ROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
18 9018 i# OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
19 9019 is TRANSFERRED. . 
1 0021 ie THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
é 00 é i# AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
? BR ? :* CORPORATION. : 
5 60 5 ie DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
26 0026 i SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
OBE 
9 00 9 WETTITITILITII TLL LLL LL LLL LLL LLL LLL LLL iLL LiL) 
0 030 
: 09 1 ‘tao 
$ $e FACILITY: Run time Library 
3 99 5 i ABSTRACT: 
. 0037 Implements dynamic Linking to shareable images 
9 003 i ENVIRONMENT: 
40 
41 
rk 
44 
45 
4 
4 
; 
5 
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LIBSFIND_IMAGE Dynamically activate shareable image 16-Sep-1984 00:56:4 AX-11 Bliss-32 V4.0-7 P 
v03-006 - ‘ . Or 198e 19:38:85 oF af 


a ah a ee st 


14-Sep-1984 LIBRTL.SRCILIGFNDIMG. 3 2:1 a1) 


v03-004 BLS0225 Benn Schreiber 16-Jun-1983 
Add flags argument to call to utilSread_object. Upcase 
routine name before looking up. 


v03-003 BLS022 Benn Schreiber 20-May-1983 
Copy file spec to hdrbuf if error before signalling. 
spec goes away if message file image activa 


v03-002 PDG0002 Peter D Gilbert 22-Mar-1983 
Remove .ADDRESS reference in UTILS IND. SYMBOL 
v03-001 BLS0208 Benn Schreiber 18-Feb-1983 


Report full file spec on failed activation if Pentiahte 


V 


08 


0-74 Page 3 


kK 4 
GUSLA IE pretne|izoetvare amaresbte tmoge Heche MASSES MSH MAdet 


' 

Define a symbol descriptor 
FIELD 
nsd_ fields - 


re r 1 SSBTTL *Declarations'; 
g t3 i BLISS Libraries 
7 § SWITCHES 
7 8 ADDRESSING_MODE (EXTERNAL = GENERAL 
ft 19 NONEXTERNAL = WORD_RELATIVE); 
; 1 LIBRARY 
3? § *SYSSLIBRARY:LIB'; 'Need to get IFD definitions from LIB 
5 REQUIRE 
: 3 "RTLIN:RTILPSECT'; ‘RTL psect definitions 
oS ; 1 DECLARE_PSECTS (LIB); ‘Declare psects for LIB facility 
oy ; j FIELD 
9 185 i Define the Module information descriptor. There is one for each image 
9 1 ! mapped. 
94 1 : 
95 188 mid_fields = 
96 189 SE 
97 190 mid_l_next = 0.9. 0), ‘Next in List or 0 if end 
98 191 mid_l_symist = (4,0, Oi 'Listhead of symbols this image 
136 mid_l_base = 8,0 0 ‘Base of image in memory 
19 mid-l-vbn = 12,6,32,03,  'VBN of GST 
194 mid_b_namlen = 1.0.8.6, ‘Length of name 
195 mid_t_name = 17,0,0,0 ‘Start of image name 
38 TES; 
9 
98 
99 
00 
4 
08 
04 
05 
09 


MOMIMIMIMONONN 2 


oe oe on www www inna lo loleolololalolololalo] 


ee ee ee ee ee ee ee eee SS SY 
. 


99 

100 

103 

108 

104 
105 
106 
1 

109 SE 

110 msd_l_left = 9.0.38 -0). ‘Left subtree pointer 
111 msd_l_right = 4,0, Bi ‘Right subtree pointer 
6 msd_w bal = 8,0,16,0 ‘Balance this node 

11 msd_l_value = 16,6,32,04, ‘Value of this symbol 
114 msd_b_namlen = (14,0, 63, ‘Length of name 

13? 4 msd_t_name = 15,0,0,0 'Start of symbol name 
117 1 ‘ 

118 i LITERAL 

1% \¢ msd_c_size = 15; !Length of msd without name 
131 1 GLOBAL 

: 3 i LibS$gl_imagelist : REF SBBLOCK FIELD(mid_fields); ‘Mapped image Listhead 
134 19 EXTERNAL LITERAL 

_ink_imod : 3 ‘Only read one module 

: 5 : LibSm_lnk_imod : UNSIGNED(8) 'Ont d dul 

139 0 EXTERHAL ROUTINE 

128 1 Lib$get_ef ‘Allocate event flag 

ree_ef, ‘Free even ag 
129 LibStree_ef if t fl 
1 LibSget_vm, ‘Allocate virtual memory 


Ss 


LIBSFIND_IMAGE Dynamically activate shareable image bese Sep-1984 AX-11 Bliss-32 V4.0-74 Page 4 
vos 000 Declarations . 1orgeen13be 99:38:88 | RT ORES Pee NbiNG oS2;1 9 023 
> (131 4 1 LibSfree_vm, 'Deallocate it 

. 4 ¢ > » LibSinsert_tree, ‘Insert sleeent into binary tree 

> % § 1 Lib$lookup_tree, jookup element in binary tree 
we 1 Libsscopy_7_dx, 'Dynamic string copy 

s 435 8 1 wergeee 1.0K, 'Free dynamic string 

9 1 tyre ypce ‘Convert string to upper case 

mm » 1 Libs Set ti lenane, 'Get filename Mii from fab/nam 
3; 1 : 1 Libs Sreport O_error, ‘Report 1/0 erro 

3 Fe 4 g : Lib$$read_object; 'Read object tite 

s 161 4 1 BIND 

3 148 5 1 sysshr_cstring = UPLITCOYTE CECHARCOURTS. STStSnAtE : sFX5" ‘. 

3 re } , SSSHARE: .EXE')) : VECTORC,BYTED; 
$ 13? 3 : Define facility-specific names for shared messages 

8 129 P 0240 1 $SHR -MSGDEF(LIB,21, LOCAL, 

3 148 P 0241 1 actimage, error) ‘Error activating image 

; (14 P tg 1 Cinsvirmen errors, ‘Insufficient virtual memory 

F 139 P 0245 1 ree pte ‘Error opening input file 

s 3) P 0244 1 osein warning) ‘Error closing input file 

s 182 0245 1 ee abner 'Read error 
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Mm 4 
vOs-006 ~ Qererec = Read GSt records meee VecSep-1986 12:36:38 ECTert saci 


4 3 ZSBTTL. ‘get_rec = Read GST record’; 
pevlae get_rec(datavector,recdesc) = 
'e¢ 


FNDIMG.B52;1 (3) 


| FUNCTIONAL DESCRIPTION: 


d the next record of the GST. This routine called by 
TTBSSREAD OBJECT 


i 
i 
INPUTS: 

i datavector = address of data vector pesca? b read_gst 
ist longword is curr ont MID bloc 

ie 


2nd longword is file 
recdesc = address of dynamic string descriptor to return record 


P 
datavector : REF VECTORL,LONG); 

IND 
midptr = .datavector 0] : SBBLOCK FIELD(mid_fields), 
irab = .datavector(1) : $BB BLOCK; 


LOCAL 
status; 


SSS SF SS BEES S- 
—Owoow MEWN ODE NOULW—OO0W 


OOoooocccoeco 
MPMINOROFUNYD 
NNO 


wr 


i] 
Read the record. If successful read, copy record to dynamic string 
status = = 7+ areata ERR=Lib$$report_io_error); 
THEN RETURN -Status; 
status = LibSscopy_r_dx(irabCrab$w_rsz],.irabCrab$l_rbfl],.recdesc); 
IF NOT .status 
THEN BEGI 


N 
pores, 68008 insvirmem,0,.status); 
a .Status 


th ss$_normal 
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CoCo COCO OD COCO OO NINN NN 
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-TITLE LIBSFIND_IMAGE Dynamically activate shareable i 
IDENT \Vv03-006\ - 
-PSECT _LIBSDATA,NOEXE, PIC,2 
00000 LIBSS$GL_IMAGELIST:: 
-BLKB 4 


~PSECT _LIBSCODE.NOWRT, SHR, PIC,2 
OE 00000 P.AAA: .BYTE 14 : 
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AX-11 Bliss-32 V 
LIBRTL.SRC CISEND 


\SYSSSHARE: .EXE\ 


L 
L 
L 
L 
L 
$s 
L 
L 
S 
S 
Dd 
4 
L 
R 
& 
R 
Ss 
R 
4 
3 
# 
RO, 
ST 
STA 
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LAGSF IND. IMAGE oy 


45 58 45 - 3A 45 52 41 


activate = ata image 


48 53 24 53 59 53 00001 
SYSSHR_CSTRING= 
LEXTRN 
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; Routine Size: 


-LIBSCODE + OOOF 


LAGSE }NO.IRAGE 


TRIR TEE IO CO CIEE Ieee Ieee rere re rere re re re rete 

POPINPOPIPOPNOPoPoNonofnonononofnonyonofnononofnononys 
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; Routine Size: 


5 
Dynamically activate shareable image 1-se 1984 00:56:4 AX-11 Bliss-32 V4.0-74 
compare. syabols - Compare new symbol to node 12286871388 99:38:48 EO TERTL-SRCILIGENDING.B 2;1 


9 1 XSBITL. ‘compare_symbols = Compare new symbol to node’; 
ROUTINE compare_symbols(desc,node) = 
= 


1 
| FUNCTIONAL DESCRIPTION: 
Compare symbol against symbol in current node 
1 


i 
i 
INPUTS: 
desc = address of descrip 


= t f new symbol 
node = pointer to an MSD b 


ro 
ock 
— 
MAP 

desc : REF S$BBLOCK, 

node : REF S$BBLOCK FIELD(msd_fields); 


LOCAL 
retval; 


IF (retval = CHSCOMPARE‘.descCdsc$w_length],.descCdsc$a_pointer], 
-node[msd_b_namlen],nodelmsd_t_name],0)) NEQ 0 
THEN RETURN .r 


etval 
ae ELSE RETURN SIGN(.descCdsc$w_length] - .node[msd_b_namlen]) 


WAWWAIANNNAAWWwwiwminwnnorornonorerononononor 


a M@QOOOODOODOOCOOOOOOOOOOO 
FWN OO ONAUNE WN" OOONOAUE WO 


GOOOCOCCOOCCCOoOOoOooCooO 


007C 00000 COMPARE _SYMBOLS: 
- WORD 


0 Save R2,R3,R4,R5,R6 
56 04 AC D0 00002 MOVL DESC, R6 
54 08 aC DO 00006 OVL NODE. R4 
50 OE AS 9A OO00A MOVZBL 14(R4), RO 
55 01 p0 O00E OVL #1, R5 
00 04 86 66 2D 0001 CMPCS  (R6), a4(R6), #0, RO, 15(R4) 
OF AG 0017 
3 4A 0019 BGTRU 1$ 
55 1 09 0001B SBWC OO CO#1, RS 
50 55 00 OO1E 1$: MOVL RS. RETVAL 
15 12 000 NEQ <s 
54 OE AG 3A 00 3 MOVZBL 14(R4), R4 
0 $6 MOVZWL (R6), RO 
54 0 ¢ 99 A SUBL2 RO, R4 
54 05 00020 TSTL R4 
50 DC O002F MOVPSL R 
50 02 08 EF 90 1 EXTZV. #2, #2, RO, RO 
D7 000 6 DECL R 
04 00038 2$ RET 


57 bytes, Routine Base: _LIBSCODE + 005D 


v0 


H 5 15 1 XSBITL ‘alloc_symbol = Allocate MSD block for new symbol’; 
: ° 1 1 peut ine alloc_Symbol(desc,retadr) = 

: 8 1 144 

: 2 8 19 FUNCTIONAL DESCRIPTION: 

: 1 9 1 Allocate an MSD block for new symbol 

: § 0 5 { INPUTS: 

; 3 0325 i desc = address of string descriptor of new symbol 
: i 0 $ retadr = address of longword to return address in 
; 238 8 2 i-- 

; 239 8 9 MA 

; 240 0330 desc : REF $BBLO 

; 41 03 1 retadr : REF VECTORC, LONG); 

> 26 $335 LOCAL 

> 2446 0334 sta 

3 st? O332 He ne a REF SBBLOCK FIELD (msd_fields); 

; ses 0337 status = LibSget_ vm(ZREF (msd_c_size+.descCdsc$w_length]) ,msdptr); 
: 248 0338 IF NOT .stat 

; 249 0339 THEN BEGIN 

3 $20 0340 SIGNAL (Lib$_insvirmem,0,.status); 

3; 251 0341 RETURN .status 

5 $26 berg END; 

; 034 

3 See 0344 msdptr(€msd_l_value] = 0; 

; 255 0345 msdptr(msd_b_namlen] = .desc(dsc$w_length]; 

3 206 0346 CHSMOVE ( gnbPerined. b_ namlen),.descLdsc$a pointer], msdptr({msd_t_name]); 
w.:, 0347 § retadr£0) = .msd ptr 

: 258 0348 

3; ao 0349 2 — ss$_normal 

: 260 0350 1€E 


007C 00000 ALLOC_SYMBOL : 
WORD Save Af R3,R4,R5,R6 


SE 08 2 SUBL2 #8 
04 PUSHAB mSbPTR 
52 04 0 MOVL DESC, R2 
04 AE Ode MOVZWL (R2). 4(SP) 
04 AE - 010 ADDL2. #15, 4(SP) 
04 014 PUSHAB 4(SP) 
000000006 0 17 CALLS #2, LIBSGET_VM 
; 1 a re: 
te be a34 PUSHL STATUS: 
001512F2 8F DD 6 PUSHL @# 351106 
— $8 88385 antag! 


LIBSFIND_IMAGE Dynamically activate shareable image 16-5¢ p-1984 AX-11 Bliss-32 V4.0- 
vos so06 att loc “symbol - Allocate MSD block for new symbo 1 236-1 38c 2 93: 38: $8 CE TBRTL SRCILISENDING 


D 2 
ND_IMA namically activate shareable ima Sep AX-11 Bliss- 
LIBSF IND_ IMAGE by icall j h ble i 16-Sep-1984 11 Bliss-32 V 
v03-006 Loc symbol = Allocate MSD block or new symbo 14-Sep-1984 ° e LIBRTL.SRC SL iSFND es 2;1 
04 00038 RET 
56 04 AE 00 Bao 9 1$: MOVL MSDPTR, R6 
OA ag D4 00030 CLAL 10(R6) 
OE A6 90 00040 MOVB (R2), 14(R6) 
50 OE Ab 9A 00044 MOVZBL 14(R6), RO 
OF A6 04 B2 2 28 00048 MOVC RO, a4(R2), 15(R6) 
08 BC 00 004 MOVL 6, @RETADR 
01 p00 0005 MOVL #1, RO 
04 0005 RET 


; Routine Size: 86 bytes, Routine Base: _LIBSCODE + 0096 


5 
LARSEARD-IMACE_ DymantcaL ty ctivgte shareable, tmages. toon ost HESEEDTIOES SB:GH:SS — UMaLT SURAT dSigc7Hbo. 


; 26 1 ZSBTITL apipbel rousing - Process global symbol from GST’; 

; & 1 ROUTINE global_routine(symbol_desc,symbol yr pilgwegtly 

: 2646 1 entry_mask,datavector,gsd_desc) = 

; 265 4 BEGIN 

> 26 5 14+ 

: of § FUNCTIONAL DESCRIPTION: 

> 269 58 : This routine called with global rest from shareable image. A 
; 270 59 : block describing the symbol is allocated and put in the symbols 
; fy 8 rst list for this image. 

: 274 6 MAP 

; 275 64 symbol_desc : REF $BBLOCK 

: ef B30? symbol_value : REF VECTOR -LONG), 

3; e7 0 06 symbol_flags : REF vector LONGI, 

3; ene tr datavector : REF VECTORL,LONG); 

: 279 0368 

; 280 0369 BIND 

: +4 tA midptr = .datavector(0] : SBBLOCK FIELD(mid_fields); 

; ae O37¢ LOCAL 

: 284 037 msdptr : REF SBBLOCK FIELD(msd_fields), 

; +H pre status; 

3 $B 0376 status = LibSinsert_tree(midptr&mid_l_symlst],.symbol_desc,%REF(1), 

; 288 0377 compare_symbols,alloc_symbol ,msdptr); 
; 289 0378 IF NOT .status 

3 $30 0379 THEN RETURN .status; 

s 2) 0380 ‘ 

; 238 oee) Set symbol value. Relocate if needed 

: 294 0888 msdptr(msd_l_value] = .symbol_value(0); 

; 295 0384 2 IF (symbol Flags(03 AND gsy$m_rel) NEQ 0 

: $99 StH THEN msdptrimsd_l_value) =".msdptr(msd_l_value] + .midptr[mid_l_base); 
; 298 0387 5 RETURN ss$_normal 

; 299 0388 1 END; 


0004 00000 GLOBAL_ROUTINE: 
. WORD 


Save R2 
5E 08 C3 0000 SUBL2 #8, SP 
52 14 BC 00 0000 MOVL  @DATAVECTOR, R2 
04 AE 9F 00009 PUSHAB MSDPTR 
98 AF 9F 0000C PUSHAB ALLOC_ SYMBOL 
FFSE CF 9F OOOOF PUSHAB COMPARE SYMBOLS 
OC AE 01 pO 0013 MOVL #1, 12(SP) 
Oc AE 9F 0001 PUSHAB 12(SP) 
04 AC DD OOO1A PUSHL SYMBOL_DESC 
4 Ad 9F 0001 PUSHAB 
000000006 00 Q F CALLS #6 L1BSINSERT_TREE 
16 4 €E BLBC STATUS, 2$ 
5 04 aE DO OO02A MOVL MSDPTR; RO 


0352 


0370 
0376 


0888 


—— ee 4 


5 
ann MAGE Peadegst Read Csi fron image ies Sep-198e 12:88:55 EC Tant °SReScIBFNDING-B82; 1 a 


1 ZSBTTL. ‘read_gst = Read GST from image’; 
1 gEGIN read_§st (ifdptr,midptr) = 


Wn 


uw 


} FUNCTIONAL DESCRIPTION: 
Read the GST of the image just loaded 


oOo 
co 


i INPUTS: 


3 | 
i 
: | 
! 
i 
' 
; 
} ifdptr = address of the image IFD (image file descriptor) 

} midptr = address of MID block for image 

ifdptr : REF $BBLOCK 

midptr : REF SBBLOCK “FIELD(mid_ fields); 


SNAM_INIT(NAM=inam, 
RSS=nam$c_maxrss, 
RSA=esbuf, 
ESS=nam$c_maxrss, 
ESA=esbuf); 


wvvuvvU 


REUNIASSSVSAEUN LS SOLARA SSSBISARUNISSONTUNE UU OS B 


09 
10 
\} 
18 
14 
i 
1 
18 LOCAL 
19 4 status, 
0 4 datavector : VECTORC2,LONG), 
1 ubuf : Speers. maxrecsiz), 
¢ 04 ifab : SPab OD 
04 irab : $RAB “PECL: 
4 Be inam : SNAM be 
; ° esbuf : SBBCOFK nam$c_maxrss); 
7 P 8 SFAB_ i, zifab, 
8 P 04 S=.midptr&mid b_namlen], 
9 P 04 FNAcntdperteid t_namel, 
0 e os DNS=.sysshr_cstring(0J, 
1 P 04 DNA=sysshr_CstringL1J, 
§ “ 8 elo RO,GET), 
¢ 8 SHR=(GET -PUT ,UPI)) ; 
83 IF .ifdptrlifd$v priv) 
7 o% THEN ifabCfabSv_lnm_mode] = psl$c_exec; 
8 é 
; 4 
4 
ly 


ifabCfab$l_ctx] = Libs_o opening 
Piet = $0P PEN(F (FAB=i fab, ERR=Lib$$report_io_error); 


THEN RETURN Status; 


Ete 


wvvuvv 
x 


40 UBF =ubuf, 

41 USZ=0b sc _maxrecsiz, 

g ROP=LOC) 

44 irabCrab$l_ctx] = Lib$s_o 

45 2 status = $CONNE CT(RAB=Trab., Menke Libssreport. io_error); 


Be Se Se Se Se Ge Ge Se Se Se Ge Ge Se Ge Se Se Ge Se He Se Ge Fe Ge Ge Se Se Ge Ge Se Ge Ge Se Se Se Se Ge Se Se Ge Se Ge Se Ge Se Ge Se Fe Se Se Se Se Ge Se Se Se Sees 
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4 F NOT .status 
44 HEN BEGIN 
rr SCLOSE(FAB=ifab); 


RETURN .status 
END; 


Ft ed 


Tell RMS that records are variable length, so we can read the GST 


i tab fab$v_esc] = 1; 

ifablfab$l-ctx) = rme$c apetr wae 
ab(fab$Sb rfm) = fab$c"v 

status = wy V(FAB=i fab, *ERR=LibS$report. io_error); 


Ft 


r~ 


B 
SELOSE (FAs fab); 
RETURN .status 


Point to and read the GST 


irab rab$l_rfa0) = .midptr&mid_l_vbnj; 
irablrab$Sw_rfa4) = 0; 

irabCrab$b-rac] = rabsc_ rta; 

irabCrab$l"ctx] = Lib$ reader 

status = SFIND(RAB=irab, rERR=|ibS$report.. io_error); 
If NOT .status 

THEN BEGIN 


SCLOSE (FAB=i fab); 
RETURN .status 


FIND: 
irablrab$b_rac) = rab$c_seq: 


itemeeteat | | f- gatéotrs 
datavector(1) = irab 3 


status = Lib$$read_object(get_rec,ZREF (LibSm_lnk_1mod) 
datavector,global_routine); 
ifabCfab$l_ctx] = Lib$_c 


SCLOSE (FAB=i fab, ERR=UiBS$report. io_error); 
RETURN .status 
END 


. 
° 


Be Se Se Se Ge Ge Be Se Ge Se Ge Se Ge Se Se Ge Ge Se Ge Ge Se Se Se Fe Ge Se Ge Ge Ge Ge Se Ge Se Se ee Ge Se Se Se Se Sees 
WN HOSOI SO Doo OA POO OO Doe aU 


bat ty te epee PN PS 
Nou 


SBLEGRANLSSSIEARAN AS SaToOs 


SYSSOPEN, SYSSCONNECT 
SEXTRN SYSS$CLOSE, SYSSMODIFY 
“EXTRN SYSSFIND 


O7FC 00000 READ GST: 


. 
‘ 
. 
e 
* 
° 
7 
e 
. 
. 
° 
e 
. 
e 
7 
° 
. 
. 
. 
o 
. 
. 
. 
. 
. 
e 
. 
oe 
7 
. 
7 
° 
- 
e 
o 
e 
- 
° 
. 
o 
° 
s 
. 
e 
. 
° 
° 
e 
i 
e 
o 
o 
° 
e 
- 
e 
. 
o 
. 
eo 
. 
° 
o 
° 
. 
a 


-WORD Save R2,R3,R4,R5, Re R7,R8,RI,R1I0 ; 0390 
A F F 3 MOVAB SYSSHR_CSTRING+1, R10 — ; 
9 9000 G : MOVAB SYSS$CLOS ; 
: G é MOVAB oL Bs EPORT IO_ERROR, R8 F 
E F6 ce MOV -2560(SP), 5? ; 
0050 8F 00 6E ion \A movcS #0, (SP), #0, #80, S$RMS_PTR + 0422 


ND_IMAGE Dynamically activate shar ae image 1b-se $ep-1984 AX-11 Bliss-32 V Page 14 
beet be read_gst - Read GST from image eree= 18s PSig8ise | HEAT Oca eS Pe Mine oS2.1 vd 
1A8 «CE 5 F B 4 MOVW #2 $RMS_PTR : : 
185 CE 2993 i 6 MOVW aves. Sn SRS sPIRe22 : F 
i1c?_—s CE 2 MOVB R731 : : 
1D0 ce 0104 CE ‘ MOVAB IN fin? sins. Pras 40 : ; 
: AC VL mioet : ; 
D4 CE 11 A? SE 0004 MOVAB 17(R 7). Shas PTR : ; 
1D8 CE 6A 4 MOV SYSSHR STRINGeT SRMS _PTR+48 : ; 
ie OO 10 A7 4 MOVB 6(R7)> Coane : : 
1DD ce FF AA MOVB SYSSHR can RSRAS_ PTR+53 ; : 
06 AC D 0 MOVL IFDPTR + 0424 : 
0 49 1 € D BBC a, isiro), : ; 
NSV : é 
1F E 0 1 0 INS ? 425 
F = on 2” 1s: mOVES «AOL CSBD- “ios 196., SRM _PTR ; 0431 : 
0104 cE 6002 i 0 a973 MOVW #24578, S$RMS_PTR : 3 
1 6 CE 1 BE OO07A MNEGB #1, $RMS_PTRT : : 
108 CE 04 AF E 0007F MOVAB ESBUE Shs PTR+4 : ; 
10 CE 0 gE 0085 MNEGB PTR+10 : ; 
110 CE 04 AE 9E O0008A MOVAB itis Means PTR+12 : ; 
01C0 CE 0015109A oF DO 00090 MOVL 0506, IFAB+24 + 0433 ; 
8 DD 00099 PUSHL + 0434 F 
O1AC 9F 0009B PUSHAB : : 
000000006 90 FB OO09F CALLS oe SYSSOPEN : : 
: 00 OOAG MOVL RO. STATUS : F 
0 6 O0A BLBS ATUS, 2$ + 0435 ; 
OODE 31 OOOAC BR : ; 
0044 8F 00 6E eis 00 C OOAF 2s: MOVCS #0, (SP), #0, #68, S$RMS_PTR + 0442 ; 
0164 CE 4401 8F BO 00089 MOVW #17409, SRMS_PTR : ; 
0168 CE 00010000 8F 00 000C0 MOVL 4655 6; $RMS"PTR+4 : : 
0184 CE 0800 8F BO 000C9 MOVW #2048, SRMS_PTR+32 : ; 
0188 CE o1Fg CE 9E 9000 MOVAB BU F, SRMS_PTR+36 : : 
1A0 CE 1A8 CE 9E 000D MOVAB 1FAB SRMS~PTR+60 : F 
017C CE 0015109A i D 000g VL #1386506, TRAB+24 + 0444 : 
8 DD O00E PUSHL R8 + 0445 ; 
0168 CE 9F O00E9 PUSHAB IRAB ; ; 
000000006 00 FB OOOED CALLS #2, Sy SYSSCONNECT : ; 
B6 D OOF4 MOVL R TUS : F 
4D 6 OF7 BLBC STATUS 3 > 0446 3 
OIAF CE 8 88 OOOFA BISB2 #8, > 0454 ; 
g1¢0 CE 1 b0 OOFF MOVL #1. IEABs > 0455 : 
01¢7 CE : 1 OVB 1 IFAB+31 + 0456 ; 
D 001 PUSHL 3: 0457 3 
O1AC F 001 PUSHAB : ; 
000000006 90 FB OO10F CALLS Aes SYSSMODIFY : : 
5 DO 00116 MOVL TUS F ; 
28 $ E9 00119 BLBC TAT tis, $ : 0458 : 
0174 CE o¢ A? 00 0011 MOVL FY )* TRAB+16 ; 0466 : 
01 c BA 1 CLRW IRAB+20 > 046 
0182 CE 0 1 MOVB i AR AB+30 ; 0468 
17C CE 001510B2 8F DO 00128 MOVL $80530, IRAB+24 > 0469 
8 DD 001 PUSHL : 0470 
0168 F 001 PUSHAB we : 
000000006 00 FB 0013A CALLS #2, SYSSFIND ; 
é D0 00141 VL ~— RO, STATUS ; 
9 6 f 144 LBS STATUS, 4$ ; 0471 
01A8 CE OF 00147 38 PUSHAB IFAB > 0473 


5 
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vbesobe = read gst -"read GST from image . 1 730071382 99:38:28 CTARTL’ SREILTSFNDIMG.69251 ’ (7) 
69 1 Ff 148 CALLS #1, SYSSCLOSE : 
y i lof BRB 5$ + 0474 
0182 cf 4 00150 4$ CLRB = TRAB+30 : 406 
f8 AD 0 00154 MOVL 7, DATAVECTOR + 047 
FC AD 0164 CE 9E 00158 MOVAB IRAB, DATAVECTOR+4 + 0479 
FESD CF OF 001 PUSHAB GLOBAL_ROUTINE + 0481 
FB AD OF 0016 PUSHAB DATAVECTOR : 
08 AE G 8F 9A 1 MOVZBL #LIBSM_LNK_1MOD, 8(SP) : 
AE 9F OO16A PUSHAB 8(SP) : 
FD71 F OF 1$p PUSHAB GET _REC : 
000000006 00 4 F 171 CALLS #4, LIBSSREAD_OBJECT : 
a 0 dO 00178 MOVL Status : 
01c0 CE 00151050 B&F 00 0017B MOVL #1380432, IFAB+24 + 0483 
8 pp 0184 PUSHL R8 + 0484 
O1AC ; F 001 PUSHAB IFAB : 
69 FB 018A CALLS #2, SYSSCLOSE : 
0 6 00 00180 S$: MOVL STATUS, RO + 0486 
04 00190 RET + 0487 
; Routine Size: 401 bytes, Routine Base: _LIBSCODE + 012D 


LARSSUg-IMACE ymancalty sptivets shareable image sige JERBCIOM QUSEESSE UM, Shar Hz asi 2742 teat 


401 4, ] Berit *find_image - Find rs of in mapped images List’; 


‘ ¢ é i ine find_Tmage (desc ,midptr 
405 re ; FUNCTIONAL DESCRIPTION: 
40? 1 Look up image in mapped image List 


i 
INPUTS: 
i 
i 


desc = address of descriptor of image n 
midptr = address of longword to store MID. block address if found 


P 
desc : REF S$BBLOCK 
midetr : REF VECTORE, LONG); 


LOCAL 
ptr : REF SBBLOCK FIELD(mid_fields); 


) ptr = Lib$S$gl_imagelist; 
WHILE ptr = .ptr(mid_l_next]) NEQ 0 
dO iF CHSEQL(. descldscsu ree aciereteta te pointer], 
mid_t_name],0) 
THEN BEGIN 


midptr(0) = .ptr; 
AL, RN ss$_norma 


ptrimid_b_namlen], ptr 


Seas o ren oeeeSeeES TSS SeSSRESISES 2 


Se Se Ge Ge Ge Wy Se Ge Ge Se Ge Se Se Se Se Ge Se Ge Ss Ge Se Se Se Se Se Se Se Se Se Se eees 


| ei iet- tee ek- tee ek ek ke kee le ee a Pe ek ee a ek 


WIA PIPININPINIPYUNIPYNY 2 2 OO OS SO 


NO OCONOUSWN “OVDONOUS WOO 


; RETURN 0 
1 END; 
003C 00000 FIND_IMAGE: 
.WORD Save R2,R3,R4,R5 : 0489 
$s 000g" GF 35 Bs «RaW UEP IMMGE IST, Pr BF 
54 64 bg 6900p 1$ MOVL (PTRS, PTR : 0510 
17 1 01 EQL «= oS ; 
50 10 AG A 0001 pt 16(PTR), RO : 0512 
50 00 04 85 04 Bt D 0016 CMPC5  aDESC, a4(R5), #0, RO, 17(PTR) : 
C1 O1F BNEQ 18 F 
08 Bf 4 0D 1 MOVL PTR, @MIDPTR ; 0514 
0 01 B0 0 3 MOVL #1, RO : 0515 
4 9 2% R R > 0518 
” 4 op B : gett . : $218 


3; Routine Size: 44 bytes, Routine Base: _LIBSCODE + O2BE 


Be Se Se Se Se Ge Se Se Se Se Se Se Fe Se Se Se Se Se Se Se Ge Se Se Fe Fe Se Ge Ge Se FF Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Fe Se eeeeee Se Seteas 
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boss Lib T ind teens symbol - Find symbol by string n 12-808-1 384 99:38:38 LIBRTL. REIL ISFNDIMG.B82:1 - (9) 
; 4 0 1 XSBTTL ‘LibSfind_image_symbol - Find symbol by string name’; 
: ? 5 ; sok ROUTINE LIBS ti adnioege symbol Teage desc-rout ine desc, retadr) = 
; 4 lee 
: ? : FUNCTIONAL DESCRIPTION: 
: re § Return the address of the named routine. 
; 44 8 | INPUTS: 
3 446 530 2 i image_desc = Address of string descriptor for image name. A 
; 445 2 1 ; default file specification of SYSSSHARE:.EXE is applied. 
; rr | § : routine_desc = Address of string descriptor of symbol to find 
: ret : Z retadr = Address to return symbol value in 
; 449 0535 { QUTPUTS: 
; 451 05 7 i If the hoe | can be found and the symbol is found in the image, the 
; +26 0538 } relocated (if needed) symbol value will be returned in the Longword 
: te +34 pointed to by retadr. 
; 435 0541 1 ROUTINE VALUE: 
: 657 ba0§ i ss$_normal = found, value returned ok 
3; 458 0544 ! any errors from services called 
; 459 0545 } 
Pa) Se pie 
: ri 0548 i Use of these routines requires READ access to the shareable image file, 
: ret tr because the file must be open to read the global symbols contained within. 
: 465 0551 i LIBSFIND_IMAGE_SYMBOL signals all errors detected, such as image file not found, 
: 288 8236 and format errors in the global symbol table of the image. 
; 468 eat i after the first call to LIBSFIND_IMAGE_SYMBOL for a particular image, 
: 469 0555 ! successive calls for that image will Be quite fast, as an in-memory database 
3 $0 8226 is maintained so that the image is only activated once. 
: 47 0558 i If the calling image is installed with privileges, then the image being 
; 47 0559 ' activated must be installed. further, only Logical names defined 
3 rth 3200 1 /SYSTEM /EXEC will be considered while activating the image. 
: 67 036¢ i There is no way to deallocate this database, nor is there any supported 
3; 47 56 ! method to remove an activated image from the address space. All activated 
3 rth 4 oe images are activated into PO space. 
; 480 0966 | EXAMPLES: 
; rt 0368 a) Using LIBSFIND_IMAGE_SYMBOL from BLISS 
3 484 $399 i STATUS = LIBSFIND IMAGE SYMBOL (SDESCRIPTOR(*EDTSHR*) , SDESCRIPTOR(*EDTSEDIT") ,EDTADR); 
3 ret 20} ( EDTADR) (SDESCRIPTOR( FOO. INP’) ,SDESCRIPTOR('FOO.OUT')); 
; cs? 378 i b) Using LIBSFIND_IMAGE_SYMBOL from FORTRAN 
: 489 575 i CALL LIBSFIND_ IMAGE_SYMBOL(*EDTSHR', "EDTSEDIT® ,EDTADR) 
3; 490 576 ! CALL USER_CALC_SYMBOL(EDTADR,2VAL(#args),argi, arg2, ...) 


a ae 


a 
> 


4 5 
lly activate shareable image 16-Sep-1984 00:56:4 AX-11 Bliss-32 V4.0-74 P 
rage syabol Fina symbol’ by string n ioekepeione Sorseces | ee tent  SaES PeeNoiNG bS2-1 ase 18 


te ate 


‘ 


ae 


LIBSE IND. IMAGE 


where USER_CALL_SYMBOL is the following short MACRO routine 
sENTRY USER_CALL_SYMBOL ,0 


MOVL a4 (AP) ,RO 3Get address to call 
5 a B(AP), (RO) sCall the routin 


¢ 
n 
tine 
sReturn with status in RO 
MAP 
snagy does : REF SBBLOCK 
routine_desc : REF S$BBLOCK, 
retadr : REF VECTORL,LONG); 
LOCAL 
status 
4 
4 
4 
4 
4 
4 
4 
4 
4 


D0 
S2s 
OOQVOOSDOOOCOCOCOOO -Jg 


Sn eA eh Ab eA Ah lh dh dh Ab dic dhch cha dlc ich dich “dab ach ech edhe “ah ehh a] 
MFWN SO CONAOUSW—"O0O~ oO 


d.desc : S$BBL gki-decsc_s_blnd, 
desc : VECTOR(2,|.0NG), 

ptr : REF SBBLOCK 
ifdptr : REF $BBLOCK, 

midptr : REF $BBLOCK FIELD(mid_fields) 
msdptr : REF neg FIELD (msd_fields), 


02.09.09 09 09 C9 CD CD CD CD 


OOoooococoo 


o 


RK 
dflnam : VECT ONG 
adrvec : VECTOR[Z,LONGJ 


IF NOT find_imase(.image_desc,midptr) 
THEN BEGIN 


! Image riot yet mapped. Attempt to map it and then read in the GST 


IF NOT (status = LibSget_vm(ZREF (512) ,midptr)) 
THEN BEGI 

SIGNAL (Lib$_insvirmem,0,.status); 

A .Status 


0601 


PSI 
WA PRMD 2 3 3 Ss BOO OO OO0O 
w USZSSHONOUE UW OOONAAR WW AOSRD NEAR AMO OD 
i=) 
\=) 


adrvec 13 
0 


0) = 
adrvec(1) = 0; 
dflnam(0] = .sysshr_cstring(0); 
1j = syeenr cstringL1); 
Status = SIMGACT(NAME=. image_desc, 
DFLNAM=dflnam, 
HDRBUF=.midptr, 
IMGCTL=iac$m_merge OR iac$m_expreg, 
INADR=adrvec, 
RETADR=adrvec); 


If .status 
THEN status = SIMGFIX; 
IF NOT .status 
THEN BEGIN 
tempvec = aidet 3 
= tee vecl2); 'Get FAB address 
ptr 
PEN SuADONE LéscSc_o_bin, { 1heSgett tienenet .ptr) dese): 
IF .desc(0) EQL 0 


HR eee en slsb Ab Ab dh abd bedh Ab db dh Ah sb Ab Ab ab ah ah sb ab sb ah ah eal 
vuvv0v 


WR =O OONOUS WN “OO OONOUS WN — 


AWANAPONIPONININININININYD 


FS at ot at et ot et eho) 
NOUSWN—O OO 


PUP APSIAAITNI 


= 


t 
- 
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: 548 4 4 THEN CH (dsc$c_s_bln,.image_desc,desc); : 
; 549 635 4 CHSMOV (.deset0d.odeseC17, .ntdper :* 'Copy the file spec : 
3 0 6 $ 4 desc = mM dptr: $. 
: 551 637 4 SIGNAL(Lib$_act mags 1,desc,.status); ; 
; ¢ 6 3 4 LibSfree_vmTZREF ( § ,midptr); 3 
; 6 4 RETURN .Status 3 
: 4 640 3 : 
: 382 ree F inege 4 d. Insert into th d image List ad 
: ' Image is now mapped. Insert into the mapped image list a ° 
3 ef e48 then read the G e ” 9 : 
: 559 645 tempvec = .midptr; ‘Get IFD address to get filespec : 
; 560 ek ptr: s peupvect td ° , $ 
: 561 64 fdptr_ = .tempvecl1]; PF 
; 206 0648 midpertaidl_next = .Lib$$gl_imagelist; 3 
; 56 0649 LibS$gl_imagelist =_.midptr; : 
; 564 0650 midptr(mid_l_symlst] = 0; : 
; a2? $62) midptrimid (base) = .adrvec(0J; . 
; 567 nek ! If image activator did not return image header, do a qio : 
; 568 0654 ! and read it for ourselves ; 
; 569 0655 { F 
: 570 0656 IF .ptr NEQ 0 $ 
3; $71 0657 4 THEN BEGIN 3 
; 276 0658 4 ptr = .ptr +. trlihdSupyadb offi; : 
3 OF 0659 4 midptrimid_l_v nj) = .ptrCihs$l_gstvbn); : 
3; 574 0660 4 3 
> ore 0661 4 ELSE BEGIN 3 
s 376 0662 4 LOCAL 3 
3; 577 0663 4 efnum $ 
; 578 0664 4 ihdbuf : $BBLOCK(512) ; 
: 579 0665 4 qiosb : VECTORC4,wORDS; ; 
; 580 0666 4 3 
>; 581 0667 4 status = LibSget_ef(efnum); 3 
g 286 0668 4 F NOT .status 3 
3; 3 0669 5 THEN BEGI FH 
3; «4584 0670 5 SIGNAL(.status); 3 
; 585 0671 5 RETURN .status F 
3; 586 0672 4 END; 3 
3; 587 P 0673 4 status = $0]0W(chan=.ifdptrlifd$w_chan], 3 
: +3 P 0674 4 efn = .efnun, ; 
3; 589 P 0675 4 func=10$_READVBLK, : 
; 590 P 0676 4 iosb=qiosb, F 
3; «591 P 0677 4 pizindout 2 
3 236 P 0678 4 p2=512, 3 
; 39 679 4 p3=1); 3 
3 594 680 4 IF .status 3 
3; 595 O68 : THEN status = .qiosb(0); : 
: 399 6 j 4 Lib$free_ef(efnum) ; : 
3 ae6 be 4 & IF NOT .Status 3 
3; FP" 685 5 THEN BEG : : 
; 600 : SIGNAL (Lib$_readerr,1,.image_desc,.status); 3 
; 601 6 RETURN .status : 
; o0¢ 688 4 END; 3 
; 60 689 4 ptr = ihdbuf + .ihdbuflihdSw. symdbgoff); ; 
3: 604 690 4 midptr(mid_l_vbn) = .ptrlihs$l_gstvbn); : 


feed. gst(. Rt 
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: 605 9 : 
SO : 
609 9 midptrmid_b_namlen image_descLdsc$w_Len 3 
1 p 2 HSMOVE C. image nies tdscducte (ong th], image. beoctaecsa pointer], : 


! 
Image is mapped, lookup and return symbol value 


d_desc(dsc$w_length] = 0; 

dsc$b_ ae = dsc$k_ class_d; 

d_-desc(dsc$b_ -dtype 

d-desc(dsc$a_pointer] 

str $upcase(d-desc,.routine_desc) 

status = LibSlookup_ tree(midptriaid. L_symlst],d_desc, 
(stmsdptr); 


d-desc 
= 5 865k dtype_ t: 


compare_symbo 


SN ISIINIA AA AAA AOOAO 


MM St SS S| SOOO DOOOOOOCONO 
NM—OVODONAOULS WN (OC OODNAUE WN“ OVDONOULS WN =o 


ppreerer dx(d_desc); 


IF 
THEN BEGIN 
retadr(0) = smodptrined_{_volueds 
RETURN ss$_norma 
BEGIN 
SIGNAL ((, status AND NOT sts$m_severity) OR sts$k_error); 
retadrl0] = 
A status 


ELSE B 


WAI NIA PIPININPINONINININ 2 2 OO Ow 


C 
n 

: END; 

Save the user-specified name in the mid-block 
1 


PRARAAAAAAAAAAAAAAA AAA AAAAAAAAO 
AUF WN (OO OONAUS WN “ODOONOUSWN oO 


Ww 
www fo lo lololo la lololololololololo) 


SN NNN 


nm 


END; 


.EXTRN SYSSIMGACT, SYSSIMGFIX 
“EXTRN SYS$Q10W 
OFFC 00000 .ENTRY LIBSFIND_IMAGE_SYMBOL, Save R2.R3,R4,R5.R6,-; 0521 
R7,R8,R9I-R1IO,RT1 3 
5B 000000006 00 9E 0000 MOVAB LIBSSiGNAL R11 : 
SE FDCB CE 9E 0000 MOVAB -568(SP), SP ; 
04 AE 9F O000E PUSHAB MIDPTR + 0604 
5A 04 ac 00 001] MOVL  IMAGE_DESC, R10 : 
SA DD 13 PUSHL R10 : 
B9 AF 08 FB 001 CALLS #, FIND IMAGE ; 
03 0018 BLBC ~=E._—«&aRO,- 1 : 
0166 31 OOO1E BRW 14§ ; 
04 AE 9F 00021 18 PUSHAB MIDPTR : 0609 
04 AE 0200 BF 3C 00024 MOVZWL #512, 4(SP) ; 
4 AE OF A PUSHAB 4(SP5 ; 
000000006 99 F D CALLS #, LIBSGET_VM : 
D OvL R STATUS ; 
10 & 7 LBS STATUS, 2$ : 
9 DD A PUSHL STATUS > 0611 
E D4 C CLRL tia) ; 
001512F2 BF DD O003E PUSHL #1381106 : 


é 
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68 3 44 CALLS #3, LIBSSIGNAL 
0198 it 47 BRW 16$ 
EQ AD 01 7D O004A 2S: OVO #1, ADRVEC 
£8 AD FCC4 «CCFO 4F MOVZBL SYSSHR_CSTRING, DFLNAM 
EC AD FCBF CF 3 5 OVAB SYSSHR-CSTRING+1, DFLNAM+4 
E 7C 0005A LRQ = = (SP) 
EO AD i 2 PUSHAB ADRVEC 
EO AD 9F F PUSHAB ADRVEC 
30 OD 00062 PUSHL #48 
18 AE pp 064 PUSHL MIDPTR 
E8 AD 9F 00067 PUSHAB DFLNAM 
SA OD 0 6A PUSHL 1 
000000006 99 : FB $¢ CALLS #8, SYSSIMGACT 
9 DO 000 MOVL RO, STATUS 
0D 59 £9 0076 BLBC STATUS, 3$ 
000000006 00 0 FB 0007 CALLS #0, SYSSIMGFIX 
59 0 D 9080 MOVL RO, STATUS 
53 9 €8 0008 BLBS STATUS, 6$ 
58 06 AE DO 90086 3$ MOVL  MIDPTR. TEMPVEC 
57 08 As D9 008A MOVL B(TEMPVEC), PTR 
a3 1 0008E BEQL  4$ 
57 DD 0009 PUSHL PTR 
000000006 00 01 FB 90098 CALLS #1, LIBSSGETFILENAME 
AD 60 08 28 000 MOVC3 #8, (RO), DESC 
FO AD DS O009E 4s: TSTL DESC 
05 12 OO0A1 BNEQ 5$ 
FO AD 6A 08 : 0003 MOVC3 #8, (R10), DESC 
04 BE F4 BD FO AD 0008 5$: MOVC3 DESC, @DESC+4, @MIDPTR 
F4 AD 04 AE DO OOOAF MOVL MIDPTR, DESC+4 
59 DD 00084 PUSHL STA 
FO AD 9F 000B6 PUSHAB DES 
1 OD 90089 PUSHL #1 
001512BA 8F DD 000BB PUSHL #1381050 
68 4 FB 000C1 CALLS #4, LIB$SIGNAL 
04 AE 9F 000C4 USHAB 1p 
04 AE 0200 8F 3¢ 900¢7 MOVZWL #512, 4(SP) 
04 AE 9F 000CD PUSHAB 4(S 
000000006 00 9 it 0000 CALLS #2, LIBSFREE_VM 
F 11 00007 BRB BE 
56 04 AE DO 00009 6$ MOVL MIDPTR, R6 
58 56 b0 0000 MOVL 6, TEMPVEC 
57 68 7D O0E0 MOVG  (TEMPVEC), PTR 
66 00000000' EF 00 OOE MOVL  LIBSSGL_IMAGELIST, (R6) 
00000000" EF 6 D QOEA MOVL 6, LIBSS$GL_IMAGELIST 
04 A6 D4 000F1 CLRL =: &(R6) 
08 Ab E0 AD DO OOOF4 MOVL §ADRVEC, 8(R6) 
; D 9 TSTL PTR 
2 1 FB BEQL © 7$ 
50 04 A? 3C 000FD MOVZWL 4(PTR), RO 
69 11 00101 BRB 13$ 
08 AF 9F 00103 7$ PUSHAB EFNUM 
000000006 00 FB 001 CALLS #1, LIBSGET_EF 
39 9 dO 001 MOVL RO STATUS 
7 E8 0011 BLBS § STATUS, 9$ 
9 DD 0011 PUSHL STATUS 
68 01 FB 11 CALLS #1, LIBSSIGNAL 
48 11 00118 8$: BRB 11$ 
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dD 6 
LIBSFIND_IMAGE Dynami cally activate shareable image 16-Sep-19 AX-11 Bliss-32 V4.0-74 Page 
vos bbe Uibstind “{hage. symbol = Find symbol by string n 1228 Hae 99: 38: 3 LIBRTL.SR RIL IBF NDIMG-682:1 : 55 
C OO11A 9$: CLRQ = = (SP) : 0679 
7E ; D OO11C Mov a] =(SP) : 
7E 0290 C OO11F MOVZWL #512, =(SP) : 
C F 00124 PUSHAB IHDBUF ; 
f C 00107 CLRQ = =(SP) : 
30 AF 9F 00129 PUSHAB QI0SB ; 
3 po 10¢ PUSHL #4 : 
7E 8 A8& 3C 001 MOVZWL 8 (IFDPTR), -(SP) : 
4 AE DD 001 PUSHL EFNUM : 
000000006 99 FB 1 CALLS #12, SYS$Q10W : 
D0 0013¢ MOVL RO, STATUS ; 
04 9 1 F BLBC STATUS, 10$ : 9680 
9 10 AE 3¢ 00142 MOVZWL QI0SB, STATUS + 0681 
08 AE OF 0146 10$ PUSHAB EFNUM + 0683 
000000006 00 01 re O14 CALLS #1, LIBSFREE_EF F 
11 9 €£ 139 BLBS § STATUS, 12$ ~ + 0684 
39 DD O19 PUSHL STATUS + 0686 
A dD 00155 PUSHL R10 : 
01 oD 00157 PUSHL #1 : 
00151082 8F DD 00159 PUSHL #1380530 ; 
6B 04 FB 0015F CALLS #4, LIB$SIGNAL : 
7C 11 00162 11$: BRB 16$ + 0687 
50 18 AE 9E 00164 12$: | MOVAB  IHDBUF, RO + 0689 
57 1C AE 3C 00168 MOVZWL IHDBUF+4, PTR : 
57 50 CO 0016C 13$: ADDL2 RO, PTR ; 
Ab 04 A? bO 0016 MOVL 4 (PTR), 12(R6) : 0690 
10 A6 6A 90 001 4 MOVE (RIO). *16(R6) + 0695 
11. Ab BA 6A 28 00178 MOVC3 (R10), @4(R10), 17(R6) + 0697 
56 DD O017E PUSHL 6 + 0698 
58 0D 00180 PUSHL IFDPTR ; 
FCBC CF 2 FB 0018¢ CALLS ne READ G : 
F8 AD O20E0000 8F D0 00187 148: MOVL  #34471938, D_DESC + 0703 
FC AD D4 0018 CLRL D_DESC+4 + 0706 
08 AC DD 0138 PUSHL  ROUTINE_DESC : 0707 
F8 AD 9F 0019 PUSHAB D_DESC ; 
000000006 00 02 FB 00198 CALLS #2, STRSUPCASE : 
Oc AE 9F 0019F PUSHAB PT : 0708 
FBCD CF 9F OO1A2 PUSHAB COMPARE_SYMBOLS : 
F8 AD OF O1A6 PUSHAB D_DESC : 
7E 10. AE 4 C1 OO1A ADDL3 #%, MIDPTR, -(SP) : 
000000006 00 4 FB O1AE CALLS #4, C1BSLOGKUP- TREE F 
59 0 pO 001B MOVL RO, STATUS F 
000000006 00 ee Of 4 i86 eats, 8 STRSER E1_Dx Deakin 
op 9 £8 1¢¢ BLBC stATy 138 : 0711 
0 oc AE 00 O01C MOVL MSDPT : 0713 
0c B A A 06 1€9 MOVL 1 DpIR. ORETADR : 
0 01 B6 Ice MOVL #1, RO : 0716 
50 59 7 cB 1pe 15$: BiCLS #7, STATUS, RO : 0717 
E 0 : C9 0010 BISL ; - : 
6B FB OO1DA CALLS #1. LIBSSIGNAL : 
0c BC D4 0010 CLAL RETADR : 0718 
50 v0 160 16$:  MOVL STATUS, RO : O79 
4 OO1E RET > 0722 


; Routine Size: 484 bytes, Routine Base: _LIBSCODE + O2EA 


LABRENNO-IMAGE Papenicaltz activate shareable, imaee, eoing m HECREB SRG O9:H0:43 — MMadh OGMEScHbrkbi8e"SSo. Page $3 


LIBS IND_ IMAGE l ti h i ~ - Ll 
vos bbe ets eet yw AH pan a Pippa) me i Be os ag by string n 1: sen 19h 99: 38: #8 a fart TL. Bt ti igo ing 88231 Page 163 
; 638 0723 0 END ELUDOM 
-EXTRN LIBSSIGNAL 
; PSECT SUMMARY 
; Name Bytes Attributes 
:  LIBSDATA NOV RT, RO, ,NOSHR, : ? . ; 
: LiBscope 1230 NOVECCNOURT: RD oN CEKE M°sHne EELS REED GON, precat tones) 


Library Statistics 


; escecsene Syabels soccoees Pages Processing 
: File Total Loaded Percent Mapped Time 

: .$255$DUA28: CSYSLIBILIB.L32;1 18619 125 0 1000 00:01.3 
: COMMAND QUALIFIERS 


BLISS/CHECK=CFIELD. INITIAL OPTIRIZE) /MOTRACE/L ISL 15821 [BF NOING/OBJ=08)8:L IBFNDING MSRC$:LIBFNDIMG/UPDATE=(ENHS$:LIBFNDIMG 


Size: 1215 coge + 19 data bytes 
ime 00 3 


Run T sife 
Slasced” tase O1:6 4 
Lines/CPU Min: $3 
ponenne sl Py-Wigs 4085 
peneey Oe 211 pages 
Compi atien Complete 
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